home *** CD-ROM | disk | FTP | other *** search
/ Real Girls - Strip Poker / Real Girls Strip POker (Windows 95 CD-ROM).iso / _SETUP.1 / RealGirls Strip Poker.exe / RealGirls Strip Poker.dxr / Scripts_1_Movie Script.ls < prev    next >
Encoding:
Text File  |  2000-02-25  |  18.5 KB  |  679 lines
  1. on startMovie
  2.   global human, player1, player2
  3.   repeat with i = 15 to 48
  4.     set the visible of sprite i to 0
  5.   end repeat
  6.   repeat with i = 1 to 15
  7.     set the visible of sprite i to 1
  8.   end repeat
  9.   set human to []
  10.   set player1 to []
  11.   set player2 to []
  12. end
  13.  
  14. on startRound
  15.   global game, human, player1, player2, CDPath, HDPath
  16.   if getAt(human, 12) = 1 then
  17.     setAt(human, 12, 0)
  18.   end if
  19.   if getAt(player1, 12) = 1 then
  20.     setAt(player1, 12, 0)
  21.   end if
  22.   if getAt(player2, 12) = 1 then
  23.     setAt(player2, 12, 0)
  24.   end if
  25.   if getAt(player1, 12) = 0 then
  26.     repeat with X = 66 to 72
  27.       set the visible of sprite X to 0
  28.     end repeat
  29.   end if
  30.   if getAt(player2, 12) = 0 then
  31.     repeat with X = 73 to 79
  32.       set the visible of sprite X to 0
  33.     end repeat
  34.   end if
  35.   updateStage()
  36.   setAt(game, 25, 3)
  37.   updateGold()
  38.   setAt(game, 4, 0)
  39.   setAt(game, 11, 0)
  40.   setAt(game, 20, 0)
  41.   setAt(human, 21, 0)
  42.   setAt(player1, 21, 0)
  43.   setAt(player2, 21, 0)
  44.   setAt(human, 22, 0)
  45.   setAt(player1, 22, 0)
  46.   setAt(player2, 22, 0)
  47.   setAt(player1, 34, 0)
  48.   setAt(player2, 34, 0)
  49.   repeat with i = 27 to 30
  50.     setAt(player1, i, 0)
  51.     setAt(player2, i, 0)
  52.   end repeat
  53.   setAt(game, 1, 0)
  54.   setAt(game, 9, 1)
  55.   setAt(game, 10, 0)
  56.   repeat with i = 1 to 5
  57.     setAt(human, i + 5, 1)
  58.     setAt(player1, i + 5, 1)
  59.     setAt(player2, i + 5, 1)
  60.     setAt(human, i, -2)
  61.     setAt(player1, i, -2)
  62.     setAt(player2, i, -2)
  63.   end repeat
  64.   if (getAt(game, 6) = 0) and (getAt(human, 12) > 1) then
  65.     setAt(game, 6, 1)
  66.   end if
  67.   if (getAt(game, 6) = 1) and (getAt(player1, 12) > 1) then
  68.     setAt(game, 6, 2)
  69.   end if
  70.   if (getAt(game, 6) = 2) and (getAt(player2, 12) > 1) then
  71.     setAt(game, 6, 0)
  72.   end if
  73.   set anteAmt to 0
  74.   if getAt(human, 12) = 0 then
  75.     set anteAmt to anteAmt + getAt(game, 15)
  76.     setAt(human, 11, getAt(human, 11) - getAt(game, 15))
  77.   end if
  78.   if getAt(player1, 12) = 0 then
  79.     set anteAmt to anteAmt + getAt(game, 15)
  80.     setAt(player1, 11, getAt(player1, 11) - getAt(game, 15))
  81.   end if
  82.   if getAt(player2, 12) = 0 then
  83.     set anteAmt to anteAmt + getAt(game, 15)
  84.     setAt(player2, 11, getAt(player2, 11) - getAt(game, 15))
  85.   end if
  86.   setAt(game, 2, getAt(game, 2) + anteAmt)
  87.   setAt(game, 1, 1)
  88.   displayAmounts()
  89.   updateGold()
  90.   shuffleDeck()
  91.   deal(human)
  92.   checkResults(human)
  93.   displayHumanCards()
  94.   if getAt(player1, 12) = 0 then
  95.     deal(player1)
  96.     checkResults(player1)
  97.     case getAt(player1, 13) of
  98.       1:
  99.         set whichClip to "1a_i"
  100.       2:
  101.         set whichClip to "2a_i"
  102.       3:
  103.         set whichClip to "3a_i"
  104.       4:
  105.         set whichClip to "4a_i"
  106.     end case
  107.     if getAt(player1, 18) then
  108.       startVid(player1, whichClip, HDPath, 0)
  109.     end if
  110.   end if
  111.   if getAt(player2, 12) = 0 then
  112.     deal(player2)
  113.     checkResults(player2)
  114.     case getAt(player2, 13) of
  115.       1:
  116.         set whichClip to "1a_i"
  117.       2:
  118.         set whichClip to "2a_i"
  119.       3:
  120.         set whichClip to "3a_i"
  121.       4:
  122.         set whichClip to "4a_i"
  123.     end case
  124.     if getAt(player2, 18) then
  125.       startVid(player2, whichClip, HDPath, 0)
  126.     end if
  127.   end if
  128.   if (getAt(human, 12) = 0) and (getAt(human, 11) < 0) then
  129.     setAt(human, 11, getAt(game, 13) + getAt(human, 11))
  130.     setAt(human, 22, 1)
  131.     displayAmounts()
  132.   end if
  133.   if (getAt(player1, 12) = 0) and (getAt(player1, 11) < 0) then
  134.     set result to getAt(player1, 16) & " sells an article of clothing for $" & getAt(game, 13) & "."
  135.     put the text of member "result" into field "dynahelp"
  136.     setAt(player1, 11, getAt(player1, 11) + getAt(game, 13))
  137.     setAt(player1, 22, 1)
  138.     doComputerSell(player1)
  139.   else
  140.     if (getAt(player2, 12) = 0) and (getAt(player2, 11) < 0) then
  141.       set result to getAt(player2, 16) & " sells an article of clothing for $" & getAt(game, 13) & "."
  142.       put the text of member "result" into field "dynahelp"
  143.       setAt(player2, 11, getAt(player2, 11) + getAt(game, 13))
  144.       setAt(player2, 22, 1)
  145.       doComputerSell(player2)
  146.     else
  147.       contStart()
  148.     end if
  149.   end if
  150. end
  151.  
  152. on contStart
  153.   global game, player1, player2
  154.   case getAt(game, 6) of
  155.     0:
  156.       put "Call, bet, or fold." into field "result"
  157.       put the text of member "result" into field "dynahelp"
  158.       showButtonsCall()
  159.       showBetButtons()
  160.     1:
  161.       computersTurn(player1)
  162.     2:
  163.       computersTurn(player2)
  164.   end case
  165. end
  166.  
  167. on seeWhoWon
  168.   global human, player1, player2
  169.   if getAt(player1, 12) = 0 then
  170.     repeat with X = 1 to 5
  171.       set the member of sprite (66 + X) to member (getAt(player1, X) + 1) of castLib "Cards-Small"
  172.       set the visible of sprite (66 + X) to 1
  173.     end repeat
  174.     set the visible of sprite 66 to 1
  175.     set the visible of sprite 72 to 1
  176.   end if
  177.   if getAt(player2, 12) = 0 then
  178.     repeat with X = 1 to 5
  179.       set the member of sprite (73 + X) to member (getAt(player2, X) + 1) of castLib "Cards-Small"
  180.       set the visible of sprite (73 + X) to 1
  181.     end repeat
  182.     set the visible of sprite 73 to 1
  183.     set the visible of sprite 79 to 1
  184.   end if
  185.   updateStage()
  186.   if getAt(human, 12) > 0 then
  187.     set wintest1 to compareHands(player1, player2)
  188.     case wintest1 of
  189.       1:
  190.         declareWinner(player1)
  191.       2:
  192.         declareWinner(player2)
  193.     end case
  194.   else
  195.     if getAt(player1, 12) > 0 then
  196.       set wintest1 to compareHands(human, player2)
  197.       case wintest1 of
  198.         1:
  199.           declareWinner(human)
  200.         2:
  201.           declareWinner(player2)
  202.       end case
  203.     else
  204.       if getAt(player2, 12) > 0 then
  205.         set wintest1 to compareHands(human, player1)
  206.         case wintest1 of
  207.           1:
  208.             declareWinner(human)
  209.           2:
  210.             declareWinner(player1)
  211.         end case
  212.       else
  213.         set wintest1 to compareHands(human, player1)
  214.         if wintest1 = 1 then
  215.           set wintest2 to compareHands(human, player2)
  216.           if wintest2 = 1 then
  217.             declareWinner(human)
  218.           else
  219.             if wintest2 = 2 then
  220.               declareWinner(player2)
  221.             else
  222.               declareWinner(human)
  223.             end if
  224.           end if
  225.         else
  226.           set wintest3 to compareHands(player1, player2)
  227.           if wintest3 = 1 then
  228.             declareWinner(player1)
  229.           else
  230.             if wintest3 = 2 then
  231.               declareWinner(player2)
  232.             else
  233.               declareWinner(player1)
  234.             end if
  235.           end if
  236.         end if
  237.       end if
  238.     end if
  239.   end if
  240. end
  241.  
  242. on declareWinner thePlayer
  243.   global handStr, game, player1, player2, CDPath
  244.   set winner to getAt(thePlayer, 20)
  245.   set allFold to 0
  246.   set whichClip to EMPTY
  247.   if ((getAt(player1, 12) > 0) and (getAt(player2, 12) > 0)) or ((getAt(human, 12) > 0) and (getAt(player2, 12) > 0)) or ((getAt(human, 12) > 0) and (getAt(player1, 12) > 0)) then
  248.     set allFold to 1
  249.   end if
  250.   if winner > 0 then
  251.     if allFold then
  252.       put getAt(thePlayer, 16) & " wins $" & getAt(game, 2) & "." into field "result"
  253.       put the text of member "result" into field "dynahelp"
  254.     else
  255.       put getAt(thePlayer, 16) & " wins $" & getAt(game, 2) & " with " & getAt(handsStr, getAt(thePlayer, 14)) & "." into field "result"
  256.       put the text of member "result" into field "dynahelp"
  257.     end if
  258.   else
  259.     if allFold then
  260.       put "You win $" & getAt(game, 2) & "." into field "result"
  261.       put the text of member "result" into field "dynahelp"
  262.     else
  263.       put "You win $" & getAt(game, 2) & " with " & getAt(handsStr, getAt(thePlayer, 14)) & "." into field "result"
  264.       put the text of member "result" into field "dynahelp"
  265.     end if
  266.   end if
  267.   updateStage()
  268.   setAt(thePlayer, 11, getAt(thePlayer, 11) + getAt(game, 2))
  269.   setAt(game, 2, 0)
  270.   if (winner = 0) and (getAt(human, 22) = 1) then
  271.     setAt(human, 11, getAt(human, 11) - getAt(game, 13))
  272.   end if
  273.   displayAmounts()
  274.   set doit to 0
  275.   setAt(game, 1, 0)
  276.   set flash to 0
  277.   if (winner > 0) and (getAt(human, 22) = 1) then
  278.     setAt(human, 13, getAt(human, 13) + 1)
  279.     put the text of member "result" & " You lose an article of clothing." into field "result"
  280.     put the text of member "result" into field "dynahelp"
  281.     set flash to 1
  282.     if getAt(human, 13) = 5 then
  283.       setAt(human, 12, 4)
  284.     end if
  285.   end if
  286.   set clothesFlag to getAt(thePlayer, 22)
  287.   set playerState to getAt(thePlayer, 13)
  288.   if winner > 0 then
  289.     if clothesFlag = 0 then
  290.       if getAt(human, 12) = 4 then
  291.         setAt(human, 12, 2)
  292.         case playerState of
  293.           1:
  294.             set whichClip to "1b_j"
  295.           2:
  296.             set whichClip to "2b_j"
  297.           3:
  298.             set whichClip to "3b_j"
  299.           4:
  300.             set whichClip to "4b_j"
  301.         end case
  302.       else
  303.         case playerState of
  304.           1:
  305.             set whichClip to "1b_i"
  306.           2:
  307.             set whichClip to "2b_i"
  308.           3:
  309.             set whichClip to "3b_i"
  310.           4:
  311.             set whichClip to "4b_i"
  312.         end case
  313.       end if
  314.     else
  315.       setAt(thePlayer, 11, getAt(thePlayer, 11) - getAt(game, 13))
  316.       if getAt(human, 12) = 4 then
  317.         setAt(human, 12, 2)
  318.         case playerState of
  319.           1:
  320.             set whichClip to "1b_j"
  321.           2:
  322.             set whichClip to "2b_j"
  323.           3:
  324.             set whichClip to "3b_j"
  325.           4:
  326.             set whichClip to "4b_j"
  327.         end case
  328.       else
  329.         case playerState of
  330.           1:
  331.             set whichClip to "1a_g"
  332.           2:
  333.             set whichClip to "2a_g"
  334.           3:
  335.             set whichClip to "3a_g"
  336.           4:
  337.             set whichClip to "4a_g"
  338.         end case
  339.         displayAmounts()
  340.       end if
  341.     end if
  342.     startVid(thePlayer, whichClip, CDPath, 1)
  343.     setAt(thePlayer, 23, 1)
  344.     setAt(game, 10, 4)
  345.     if flash = 1 then
  346.       puppetSound(1, "meter")
  347.       displayStatusBar()
  348.       updateStage()
  349.     end if
  350.   else
  351.     if getAt(player1, 22) = 1 then
  352.       set doit to 1
  353.       set thePlayer to player1
  354.     else
  355.       if getAt(player2, 22) = 1 then
  356.         set thePlayer to player2
  357.         set doit to 1
  358.       else
  359.         resetButtons()
  360.       end if
  361.     end if
  362.   end if
  363.   if doit = 1 then
  364.     set playerState to getAt(thePlayer, 13)
  365.     case playerState of
  366.       1:
  367.         set whichClip to "1b_k"
  368.         setAt(thePlayer, 13, 2)
  369.       2:
  370.         set whichClip to "2b_k"
  371.         setAt(thePlayer, 13, 3)
  372.       3:
  373.         set whichClip to "3b_k"
  374.         setAt(thePlayer, 13, 4)
  375.       4:
  376.         set whichClip to "4b_k"
  377.         setAt(thePlayer, 13, 5)
  378.         setAt(thePlayer, 12, 2)
  379.         set the member of sprite 48 to "toy-dwnright-dimmed"
  380.     end case
  381.     startVid(thePlayer, whichClip, CDPath, 1)
  382.     setAt(thePlayer, 23, 1)
  383.     setAt(game, 10, 4)
  384.     setAt(thePlayer, 22, 0)
  385.   end if
  386.   if (winner = 0) and (whichClip = EMPTY) then
  387.     doAnteUp()
  388.   end if
  389.   setAt(thePlayer, 22, 0)
  390. end
  391.  
  392. on checkRound thePlayer
  393.   global player1, player2, human, game
  394.   setAt(game, 5, getAt(game, 5) + 1)
  395.   if getAt(game, 5) = 3 then
  396.     setAt(game, 9, getAt(game, 9) + 1)
  397.     setAt(game, 5, 0)
  398.   end if
  399.   set gameCurBet to getAt(game, 4)
  400.   set money to getAt(thePlayer, 11)
  401.   set playerCurBet to getAt(thePlayer, 21)
  402.   set round to getAt(game, 9)
  403.   set maxRounds to getAt(game, 12)
  404.   set newBet to gameCurBet - playerCurBet
  405.   set endOfRound to 0
  406.   case getAt(game, 1) of
  407.     1:
  408.       if round = 2 then
  409.         set endOfRound to 1
  410.       end if
  411.     2:
  412.       if newBet = 0 then
  413.         set endOfRound to 1
  414.       end if
  415.     3:
  416.       if round = 2 then
  417.         set endOfRound to 1
  418.       end if
  419.     4:
  420.       if round = 2 then
  421.         set endOfRound to 1
  422.       end if
  423.     5:
  424.       if newBet = 0 then
  425.         set endOfRound to 1
  426.       end if
  427.   end case
  428.   if endOfRound then
  429.     case getAt(game, 1) of
  430.       1:
  431.         put "The pot stays and we deal new cards." into field "result"
  432.         put the text of member "result" into field "dynahelp"
  433.         setAt(game, 1, 0)
  434.         doAnteUp()
  435.       2:
  436.         if newBet = 0 then
  437.           setAt(game, 9, 1)
  438.           setAt(game, 20, 0)
  439.           setAt(game, 1, 3)
  440.           setAt(game, 5, 0)
  441.           if (getAt(game, 6) = 0) and (getAt(human, 12) <> 0) then
  442.             setAt(game, 6, 1)
  443.           end if
  444.           if (getAt(game, 6) = 1) and (getAt(player1, 12) <> 0) then
  445.             setAt(game, 6, 2)
  446.           end if
  447.           if (getAt(game, 6) = 2) and (getAt(player2, 12) <> 0) then
  448.             setAt(game, 6, 0)
  449.           end if
  450.           if getAt(game, 6) = 1 then
  451.             doComputerDiscard(player1)
  452.           else
  453.             if getAt(game, 6) = 2 then
  454.               doComputerDiscard(player2)
  455.             else
  456.               if getAt(human, 12) = 0 then
  457.                 disableButtons()
  458.                 disableBetButtons()
  459.                 showDiscardButton()
  460.                 put "Click cards you wish to discard." into field "result"
  461.                 put the text of member "result" into field "dynahelp"
  462.               end if
  463.             end if
  464.           end if
  465.         else
  466.           if (getAt(game, 6) = 0) and (getAt(human, 12) <> 0) then
  467.             setAt(game, 6, 1)
  468.           end if
  469.           if (getAt(game, 6) = 1) and (getAt(player1, 12) <> 0) then
  470.             setAt(game, 6, 2)
  471.           end if
  472.           if (getAt(game, 6) = 2) and (getAt(player2, 12) <> 0) then
  473.             setAt(game, 6, 0)
  474.           end if
  475.           set first to getAt(game, 6)
  476.           if first = 1 then
  477.             computersTurn(player1)
  478.           else
  479.             if first = 2 then
  480.               computersTurn(player2)
  481.             else
  482.               showButtons()
  483.               if getAt(game, 20) >= getAt(game, 21) then
  484.                 dispcallStatus()
  485.               else
  486.                 dispraiseStatus()
  487.                 showBetButtons()
  488.               end if
  489.             end if
  490.           end if
  491.         end if
  492.       3:
  493.         setAt(human, 21, 0)
  494.         setAt(player1, 21, 0)
  495.         setAt(player2, 21, 0)
  496.         setAt(game, 4, 0)
  497.         setAt(game, 1, 4)
  498.         setAt(game, 9, 1)
  499.         if (getAt(game, 6) = 0) and (getAt(human, 12) <> 0) then
  500.           setAt(game, 6, 1)
  501.         end if
  502.         if (getAt(game, 6) = 1) and (getAt(player1, 12) <> 0) then
  503.           setAt(game, 6, 2)
  504.         end if
  505.         if (getAt(game, 6) = 2) and (getAt(player2, 12) <> 0) then
  506.           setAt(game, 6, 0)
  507.         end if
  508.         set first to getAt(game, 6)
  509.         if first = 1 then
  510.           computersTurn(player1)
  511.         else
  512.           if first = 2 then
  513.             computersTurn(player2)
  514.           else
  515.             put "Call, bet, or fold." into field "result"
  516.             put the text of member "result" into field "dynahelp"
  517.             showButtonsCall()
  518.             showBetButtons()
  519.           end if
  520.         end if
  521.       4:
  522.         seeWhoWon()
  523.       5:
  524.         if newBet = 0 then
  525.           seeWhoWon()
  526.         else
  527.           if (getAt(game, 6) = 0) and (getAt(human, 12) <> 0) then
  528.             setAt(game, 6, 1)
  529.           end if
  530.           if (getAt(game, 6) = 1) and (getAt(player1, 12) <> 0) then
  531.             setAt(game, 6, 2)
  532.           end if
  533.           if (getAt(game, 6) = 2) and (getAt(player2, 12) <> 0) then
  534.             setAt(game, 6, 0)
  535.           end if
  536.           set first to getAt(game, 6)
  537.           if first = 1 then
  538.             computersTurn(player1)
  539.           else
  540.             if first = 2 then
  541.               computersTurn(player2)
  542.             else
  543.               showButtonsCall()
  544.               if getAt(game, 20) >= getAt(game, 21) then
  545.                 dispcallStatus()
  546.               else
  547.                 dispraiseStatus()
  548.                 showBetButtons()
  549.               end if
  550.             end if
  551.           end if
  552.         end if
  553.     end case
  554.   else
  555.     if getAt(game, 20) = getAt(game, 21) then
  556.       set lastRound to 1
  557.     else
  558.       set lastRound to 0
  559.     end if
  560.     nextPlayer(thePlayer, lastRound)
  561.   end if
  562. end
  563.  
  564. on dispraiseStatus
  565.   global game, human
  566.   set newBet to getAt(game, 4) - getAt(human, 21)
  567.   put "Call, raise, or fold. The current bet is $" & newBet & "." into field "result"
  568.   put the text of member "result" into field "dynahelp"
  569. end
  570.  
  571. on dispcallStatus
  572.   global game, human
  573.   set newBet to getAt(game, 4) - getAt(human, 21)
  574.   put "Call or fold. The current bet is $" & newBet & "." into field "result"
  575.   put the text of member "result" into field "dynahelp"
  576. end
  577.  
  578. on nextPlayer thePlayer, lastRound
  579.   global game, human, player1, player2
  580.   if (getAt(thePlayer, 20) = 0) and (getAt(human, 12) <> 0) then
  581.     checkRound(player1)
  582.   else
  583.     if (getAt(thePlayer, 20) = 1) and (getAt(player1, 12) <> 0) then
  584.       checkRound(player2)
  585.     else
  586.       if (getAt(thePlayer, 20) = 2) and (getAt(player2, 12) <> 0) then
  587.         checkRound(human)
  588.       else
  589.         case getAt(thePlayer, 20) of
  590.           0:
  591.             if getAt(game, 1) = 3 then
  592.               disableButtons()
  593.               disableBetButtons()
  594.               showDiscardButton()
  595.               put "Click cards you wish to discard." into field "result"
  596.               put the text of member "result" into field "dynahelp"
  597.             else
  598.               showButtonsCall()
  599.               if lastRound then
  600.                 dispcallStatus()
  601.               else
  602.                 if getAt(game, 4) then
  603.                   dispraiseStatus()
  604.                 else
  605.                   put "Call, bet, or fold." into field "result"
  606.                   put the text of member "result" into field "dynahelp"
  607.                 end if
  608.                 showBetButtons()
  609.               end if
  610.             end if
  611.           1:
  612.             computersTurn(player1)
  613.           2:
  614.             computersTurn(player2)
  615.         end case
  616.       end if
  617.     end if
  618.   end if
  619. end
  620.  
  621. on checkWinGame
  622.   global game, human, player1, player2
  623.   set hStatus to getAt(human, 12)
  624.   set p1Status to getAt(player1, 12)
  625.   set p2Status to getAt(player2, 12)
  626.   if hStatus = 2 then
  627.     hideMoney(0)
  628.   end if
  629.   if p1Status = 2 then
  630.     hideMoney(1)
  631.   end if
  632.   if p2Status = 2 then
  633.     hideMoney(2)
  634.   end if
  635.   if (hStatus = 2) and (p1Status > 1) then
  636.     gameWinner(player2)
  637.   else
  638.     if (hStatus > 1) and (p2Status > 1) then
  639.       gameWinner(player1)
  640.     else
  641.       if (p1Status > 1) and (p2Status > 1) then
  642.         gameWinner(human)
  643.       end if
  644.     end if
  645.   end if
  646. end
  647.  
  648. on gameWinner thePlayer
  649.   global game, human, player1, player2, CDPath
  650.   if getAt(thePlayer, 20) = 0 then
  651.     put "You won! All toys available." into field "result"
  652.     put the text of member "result" into field "dynahelp"
  653.     setAt(game, 10, 7)
  654.     set the member of sprite 21 to member "pot-empty/blank"
  655.     hidePotAmount()
  656.     hideBigCards()
  657.     hideButtons()
  658.   else
  659.     put getAt(thePlayer, 16) & " won the game!" into field "result"
  660.     put the text of member "result" into field "dynahelp"
  661.     if getAt(human, 12) <> 2 then
  662.       set playerState to getAt(thePlayer, 13)
  663.       case playerState of
  664.         1:
  665.           set whichClip to "1b_h"
  666.         2:
  667.           set whichClip to "2b_h"
  668.         3:
  669.           set whichClip to "3b_h"
  670.         4:
  671.           set whichClip to "4b_h"
  672.       end case
  673.       startVid(thePlayer, whichClip, CDPath, 1)
  674.       setAt(thePlayer, 23, 1)
  675.       setAt(game, 10, 7)
  676.     end if
  677.   end if
  678. end
  679.